home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
COMM
/
INTERNET
/
NEWS
/
FREENEWS
/
!FreeNews
/
!Run
< prev
next >
Wrap
Text File
|
1997-04-24
|
3KB
|
64 lines
|
| !Run file for FreeNews 1.13
| © 1997 John Smith and Neil Clegg.
|
Set FreeNews$Dir <Obey$Dir>
RMEnsure UtilityModule 3.10 Error This application is only suitable for use with RISC OS 3.10 or later versions
RMENSURE FilterManager 0.09 RMLoad System:modules.FilterMgr
RMENSURE FilterManager 0.09 Error You Need filter manager 0.09 or later
|
| The following line may cause the dreaded Drawfile bug: "nager:Sprites22". If it
| does, you must ensure that the latest copy of the Drawfile module is in System:Modules,
| and that older versions are not around. Anywhere.
|
RMEnsure Toolbox 1.36 RMLoad System:modules.toolbox.toolbox
RMEnsure Toolbox 1.36 Error You need Toolbox 1.36 or later to run !FreeNews
RMENSURE Window 0.00 RMLOAD System:modules.toolbox.window
RMENSURE Window 1.17 ERROR You need window 1.17 or later to run !FreeNews
RMENSURE Menu 0.00 RMLOAD System:modules.toolbox.menu
RMENSURE Menu 0.13 ERROR You need menu 0.13 or later to run !FreeNews
RMENSURE ProgInfo 0.00 RMLOAD System:modules.toolbox.proginfo
RMENSURE Proginfo 0.00 ERROR You need proginfo to run !FreeNews
RMENSURE IconBar 0.00 RMLOAD System:modules.toolbox.IconBar
RMENSURE IconBar 0.00 ERROR You need IconBar to run !FreeNews
WimpSlot -min 128K -max 228K
IconSprites <FreeNews$Dir>.!Sprites
| Use our own outgoing dir. unless there's one already
Unset FreeNews$MailFlag
seteval xxx 0
If "<Mail$Dir>" = "" then seteval xxx <xxx> + 1
If "<NewsDir$Dir>" = "" then seteval xxx <xxx> + 1
|If <xxx> > 0 Then Set FreeNews$MailFlag -nomaildir
|If ("<Mail$Dir>" = "") and ("<NewsDir$Dir>" = "") Then Set FreeNews$MailFlag -nomaildir
|If "<Mail$Dir>" = "" Then Set Mail$Dir <FreeNews$Dir>.Outgoing
|
| The following four lines should be redundant. Unfortunately, due to a problem in Acornet,
| they are. Please delete them if you're not using Acornet.
Set FreeNews$InetDB 1
RMEnsure InetDB 0.00 Set FreeNews$InetDB 0
If <FreeNews$InetDB> = 1 Then NSCache_flush
If <FreeNews$InetDB> = 1 Then RMReInit InetDB
|
| Ensure that the "Badmarker" directory is kept empty. This is filled by the
| Newsbase transport. FreeNews needs to delete the individual files, and the
| transport needs to check for their presence.
|Remove <FreeNews$Dir>.Data.BadMarker.* -- but *Remove doesn't like wildcards
Remove <FreeNews$Dir>.Data.BadMarker.Wipe
Create <FreeNews$Dir>.Data.BadMarker.Wipe 0
Wipe <FreeNews$Dir>.Data.BadMarker.* ~CF~V
Syslogd_debug 1
If "<FreeNews$MailFlag>" = "" then Run <FreeNews$Dir>.!RunImage %*0 else Run <FreeNews$Dir>.!RunImage -nomaildir %*0